* Преобразование всех строк входного файла к верхнему регистру.

* Входной файл 1.txt содержит пять строк (по одному слову в каждой строке файла): яблоко груша апельсин помидор огурец
файл читать "[$ТекущийКаталог]1.txt"
файл писать "[$ТекущийКаталог]2.txt"
файл читатьСтроку СТРОКА
пока [$строкаПрочитана]
  строка прописные СТРОКА [СТРОКА]
  >[СТРОКА]
  файл читатьСтроку СТРОКА
цикл
файл конецЧтения
файл конецЗаписи
показать текст "[$ТекущийКаталог]2.txt"